900
How do I get ride of the separator items when the user performs grouping

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:[ItemDividerLine,Item] := EmptyLine
RETURN NIL

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:[Item,1]:SortOrder := SortAscending
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:EndUpdate()

899
How do I split a cell in three parts, and having a radio button in each of them

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,Item,ColIndex] ))
RETURN NIL

METHOD OCX_Exontrol1Click() CLASS MainDialog
	// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
	local h as USUAL
	h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
	oDCOCX_Exontrol1:Items:[CellState,h,c] := 1
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:ShowFocusRect := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("entire")
	h := var_Items:AddItem("Radio <b>1")
	var_Items:[CellRadioGroup,h,0] := 100
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellState,h,0] := 1
	h := var_Items:[SplitCell,h,0]
	var_Items:[CellValue,0,h] := "Radio <b>2"
	var_Items:[CellRadioGroup,0,h] := 100
	var_Items:[CellHasRadioButton,0,h] := true
	h := var_Items:[SplitCell,0,h]
	var_Items:[CellValue,0,h] := "Radio <b>3"
	var_Items:[CellRadioGroup,0,h] := 100
	var_Items:[CellHasRadioButton,0,h] := true
	h := var_Items:AddItem("entire")
oDCOCX_Exontrol1:EndUpdate()

898
Does your grid include a row indicator , like an arrow, bullet

METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
	// SelectionChanged event - Fired after a new item has been selected.
	local var_Items as IItems
	local hFocusItem as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		hFocusItem := var_Items:FocusItem
		var_Items:[CellValue,oDCOCX_Exontrol1:Columns:[Item,"active"]:Data,"active"] := ""
		var_Items:[CellValue,hFocusItem,"active"] := "<c><font symbol>·"
		var_Items:[CellVAlignment,hFocusItem,"active"] := exBottom
		oDCOCX_Exontrol1:Columns:[Item,"active"]:Data := hFocusItem
RETURN NIL

local var_Column as IColumn
local var_Items as IItems
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:ContinueColumnScroll := true
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:AutoDrag := exAutoDragScrollOnShortTouch | exAutoDragScroll
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
	var_Column:Key := "active"
	var_Column:Position := 0
	var_Column:AllowSizing := false
	var_Column:Width := 12
	var_Column:Data := oDCOCX_Exontrol1:Items:FocusItem
	var_Column:[Def,exCellValueFormat] := 1
oDCOCX_Exontrol1:CountLockedColumns := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[SelectItem,var_Items:[NextVisibleItem,var_Items:FocusItem]] := true
oDCOCX_Exontrol1:EndUpdate()

897
How can I connect to a DBF file
local rs as _Recordset

oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
	rs:Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}

896
Does your control supports scrolling by touching the screen

local rs as _Recordset

oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:ContinueColumnScroll := true
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:AutoDrag := exAutoDragScrollOnShortTouch | exAutoDragScroll

895
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := 0x7ff0f0f0
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
	var_Items:AddItem("Item 4")
	var_Items:AddItem("Item 5")
oDCOCX_Exontrol1:EndUpdate()

894
Is there any method for reading information from the root item for the current item...

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SearchColumnIndex := 0
oDCOCX_Exontrol1:Columns:Add("Info")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:PathSeparator := " ; "
	var_Items:[SelectItem,var_Items:InsertItem(var_Items:InsertItem(var_Items:InsertItem(var_Items:InsertItem(nil,nil,"Root"),nil,"Child"),nil,"Sub-Child"),nil,"Sub-Sub-Child")] := true
	var_Items:[ExpandItem,0] := true
	OutputDebugString(String2Psz( var_Items:[FullPath,var_Items:FocusItem] ))
oDCOCX_Exontrol1:EndUpdate()

893
How can I highlight items with a specified date

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Date")}
		var_Column:SortType := SortDate
		var_Column:Editor:EditType := SpinType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("Task 1"),1] := SToD("20011213")
	var_Items:[CellValue,var_Items:AddItem("Task 2"),1] := SToD("20011214")
	var_Items:[CellValue,var_Items:AddItem("Task 2"),1] := SToD("20011215")
oDCOCX_Exontrol1:ConditionalFormats:Add("%1 = #12/14/2001#",nil):Bold := true
oDCOCX_Exontrol1:EndUpdate()

892
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
	var_Column:FormatColumn := "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) right 2) ) : '' )"
	var_Editor := var_Column:Editor
		var_Editor:EditType := DateType
		var_Editor:[Option,exDateAllowNullDate] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(SToD("20120512"))
	var_Items:AddItem(nil)
	var_Items:AddItem(SToD("20120514"))
oDCOCX_Exontrol1:EndUpdate()

891
How can I add multiple values/columns on the same line/item/row

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

local var_Columns as IColumns
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SortOnClick := exNoSort
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:Indent := 13
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Items")
	IColumn{var_Columns:Add("Quantity")}:Editor:EditType := SpinType
	IColumn{var_Columns:Add("Value")}:Editor:EditType := SpinType
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Items")
	var_Items:[CellValue,h,2] := "sum(current,dir,dbl(%1)*dbl(%2))"
	var_Items:[CellValueFormat,h,2] := exTotalField
	var_Items:[FormatCell,h,2] := "`Total: `+ value"
	var_Items:[CellHAlignment,h,2] := RightAlignment
	var_Items:[CellBold,h,2] := true
	var_Items:[CellEditorVisible,h,2] := exEditorHidden
	var_Items:[CellEditorVisible,h,1] := exEditorHidden
	h1 := var_Items:InsertItem(h,nil,"Item 1")
	var_Items:[CellValue,h1,1] := 10
	var_Items:[CellValue,h1,2] := 3
	h1 := var_Items:InsertItem(h,nil,"Item 2")
	var_Items:[CellValue,h1,1] := 20
	var_Items:[CellValue,h1,2] := 4
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

890
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellValue,Item,2] := var_Items:[CellState,Item,0]
RETURN NIL

local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%2 != 0",nil)
	var_ConditionalFormat:Bold := true
	var_ConditionalFormat:ForeColor := RGB(255,0,0)
	var_ConditionalFormat:ApplyTo := exFormatToItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:Width := 16
	var_Column:AllowSizing := false
oDCOCX_Exontrol1:Columns:Add("Information")
IColumn{oDCOCX_Exontrol1:Columns:Add("Hidden")}:Visible := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem(""),1] := "This is a bit of text associated"
	h := var_Items:AddItem("")
	var_Items:[CellValue,h,1] := "This is a bit of text associated"
	var_Items:[CellState,h,0] := 1
	var_Items:[CellValue,var_Items:AddItem(""),1] := "This is a bit of text associated"
oDCOCX_Exontrol1:EndUpdate()

889
How do I programatically focus a cell

METHOD OCX_Exontrol1FocusChanged() CLASS MainDialog
	// FocusChanged event - Occurs when a new cell is focused.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellBackColor,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := RGB(255,0,0)
RETURN NIL

local var_Columns as IColumns
local var_Items,var_Items1 as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column1")
	var_Columns:Add("Column2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("Cell 1.1"),1] := "Cell 1.2"
	var_Items:[CellValue,var_Items:AddItem("Cell 2.1"),1] := "Cell 2.2"
var_Items1 := oDCOCX_Exontrol1:Items
	var_Items1:[SelectItem,var_Items1:[ItemByIndex,1]] := true
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:EndUpdate()

888
How do I programatically focus a cell (excrd)

METHOD OCX_Exontrol1FocusChanged() CLASS MainDialog
	// FocusChanged event - Occurs when a new cell is focused.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellBackColor,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := RGB(255,0,0)
RETURN NIL

local var_Column as IColumn
local var_Columns as IColumns
local var_Items,var_Items1 as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:DefaultItemHeight := 36
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Column1")}:Visible := false
	IColumn{var_Columns:Add("Column2")}:Visible := false
	IColumn{var_Columns:Add("Column3")}:Visible := false
	var_Column := IColumn{var_Columns:Add("FormatLevel")}
		var_Column:FormatLevel := "(0/1),2"
		var_Column:[Def,exCellFormatLevel] := var_Column:FormatLevel
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Cell 1.1")
	var_Items:[CellValue,h,1] := "Cell 1.2"
	var_Items:[CellValue,h,2] := "Cell 1.3"
	h := var_Items:AddItem("Cell 2.1")
	var_Items:[CellValue,h,1] := "Cell 2.2"
	var_Items:[CellValue,h,2] := "Cell 2.3"
var_Items1 := oDCOCX_Exontrol1:Items
	var_Items1:[SelectItem,var_Items1:[ItemByIndex,1]] := true
oDCOCX_Exontrol1:FocusColumnIndex := 2
oDCOCX_Exontrol1:EndUpdate()

887
How do I programmatically exclude items from the filter

local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Column:DisplayFilterButton := true
	var_Column:DisplayFilterPattern := false
	var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
	var_Items:AddItem("Item 4")
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column1:FilterType := exFilterExclude | exFilter
	var_Column1:Filter := "Item 1|Item 4"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

886
Using the property Column.FormatColumn I want to display numbers in the numeric format with no decimals - unless the value is NULL then I want to display a blank or empty

local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Format")}:FormatColumn := "len(value) ? (value format '0') : '' "
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(10)
	var_Items:AddItem(nil)
	var_Items:AddItem(-8)
oDCOCX_Exontrol1:EndUpdate()

885
How can I change the drop down filter background color

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Background,exBackColorFilter] := RGB(255,255,255)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
	var_Column:DisplayFilterButton := true
	var_Column:DisplayFilterPattern := false
	var_Column:FilterList := exShowFocusItem | exShowCheckBox | exSortItemsAsc | exLeafItems
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Root 1")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("Root 2")
	var_Items:InsertItem(h,nil,"Child 1")
	var_Items:InsertItem(h,nil,"Child 2")
	var_Items:InsertItem(h,nil,"Child 3")
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

884
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar

local var_Columns as IColumns

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("First")
	var_Columns:Add("Second")
	var_Columns:Add("Third")
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SingleSort := false
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Layout := "SingleSort = " + CHR(34) + "C0:1" + CHR(34) + ";MultipleSort = " + CHR(34) + "C1:2 C2:1" + CHR(34) + ""

883
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar

local var_Columns as IColumns

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("First")
	var_Columns:Add("Second")
	var_Columns:Add("Third")
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SingleSort := false
oDCOCX_Exontrol1:Layout := "SingleSort = " + CHR(34) + "C0:1" + CHR(34) + ""

882
How do I restore/clear the HotBackColor/HotForeColor properties

local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HotBackColor := RGB(0,0,255)
oDCOCX_Exontrol1:HotForeColor := RGB(255,255,255)
IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Visible := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("USD")}
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:FormatColumn := "len(%0) ? ((0:=dbl(%0)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + `USD `+ (=:0 format ``)"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("EUR")}
	var_Column1:[Def,exCellValueFormat] := 1
	var_Column1:FormatColumn := "len(%0) ? ((0:=0.72*dbl(%0)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + `EUR `+ (=:0 format ``)"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("1.23")
	var_Items:AddItem("2.34")
	var_Items:AddItem("9.94")
	var_Items:AddItem("11.94")
	var_Items:AddItem("1000")
oDCOCX_Exontrol1:HotBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:HotForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:EndUpdate()

881
How do I format a column using a currency, and another column to another currency

local var_Column,var_Column1 as IColumn
local var_Items as IItems

IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Visible := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("USD")}
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:FormatColumn := "len(%0) ? ((0:=dbl(%0)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + `USD `+ (=:0 format ``)"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("EUR")}
	var_Column1:[Def,exCellValueFormat] := 1
	var_Column1:FormatColumn := "len(%0) ? ((0:=0.72*dbl(%0)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + `EUR `+ (=:0 format ``)"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("1.23")
	var_Items:AddItem("2.34")
	var_Items:AddItem("9.94")
	var_Items:AddItem("11.94")
	var_Items:AddItem("1000")

880
How can I sort the columns to be displayed on the columns floating bar

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("City")}:Visible := false
	IColumn{var_Columns:Add("Start")}:Visible := false
	IColumn{var_Columns:Add("End")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
oDCOCX_Exontrol1:ColumnsFloatBarSortOrder := SortAscending

879
How can I get the column index and the row index of the active cell

METHOD OCX_Exontrol1FocusChanged() CLASS MainDialog
	// FocusChanged event - Occurs when a new cell is focused.
	local var_Items as IItems
	OutputDebugString(String2Psz( "Active/Focus-Column:" ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:Columns:[Item,oDCOCX_Exontrol1:FocusColumnIndex]:Caption ))
	var_Items := oDCOCX_Exontrol1:Items
		OutputDebugString(String2Psz( "Active/Focus-Row/Item:" ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] ))
RETURN NIL

local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("C1")}:Editor:EditType := EditType
	IColumn{var_Columns:Add("C2")}:Editor:EditType := EditType
	IColumn{var_Columns:Add("C3")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(1)
	var_Items:[CellValue,h,1] := 2
	var_Items:[CellValue,h,2] := 3
	h := var_Items:AddItem(3)
	var_Items:[CellValue,h,1] := 1
	var_Items:[CellValue,h,2] := 2
oDCOCX_Exontrol1:EndUpdate()

878
How can I add a vertical padding

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Padding")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:[Def,exCellSingleLine] := false
	var_Column:[Def,exCellPaddingLeft] := 6
	var_Column:[Def,exCellPaddingRight] := 6
	var_Column:[Def,exCellPaddingTop] := 6
	var_Column:[Def,exCellPaddingBottom] := 6
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("padding")
	var_Items:AddItem("padding")
oDCOCX_Exontrol1:EndUpdate()

877
How can I set item's height individually for every item in the control and also have line breaks in the item caption

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Lines")}
	var_Column:[Def,exCellValueFormat] := 1
	var_Column:[Def,exCellSingleLine] := false
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Line 1<br>Line 2")
	var_Items:[ItemMinHeight,h] := 36
	var_Items:[ItemHeight,h] := var_Items:[ItemMinHeight,h]
	var_Items:[ItemMaxHeight,h] := var_Items:[ItemMinHeight,h]
	h := var_Items:AddItem("Line 1<br>Line 2")
	var_Items:[ItemMinHeight,h] := 48
	var_Items:[ItemHeight,h] := var_Items:[ItemMinHeight,h]
	var_Items:[ItemMaxHeight,h] := var_Items:[ItemMinHeight,h]
	h := var_Items:AddItem("Line 1<br>Line 2")
	var_Items:[ItemMinHeight,h] := 64
	var_Items:[ItemHeight,h] := var_Items:[ItemMinHeight,h]
	var_Items:[ItemMaxHeight,h] := var_Items:[ItemMinHeight,h]

876
The mouse-cursor is shown over the tooltip. Is it possible somehow resolve this (method 2)

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("This is bit of text that's shown when the user hovers the cell","Column",0,"+16","+16")
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("tooltip")

875
The mouse-cursor is shown over the tooltip. Is it possible somehow resolve this (method 1)
METHOD OCX_Exontrol1ToolTip(Item,ColIndex,Visible,X,Y,CX,CY) CLASS MainDialog
	// ToolTip event - Fired when the control prepares the object's tooltip.
	X := 0
	Y := 0
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellToolTip,var_Items:AddItem("tooltip"),0] := "This is bit of text that's shown when the user hovers the cell"

874
How can I add a MIN or MAX field (for date)

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Text")}:SortType := SortDate
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(SToD("20010101"))
	var_Items:AddItem(SToD("19981211"))
	var_Items:AddItem(SToD("20140120"))
	var_Items:AddItem(SToD("20130101"))
	h := var_Items:AddItem("min(all,dir,date(%0))")
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'MIN: '+value"
	h := var_Items:AddItem("max(all,dir,date(%0))")
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'MAX: '+value"
oDCOCX_Exontrol1:EndUpdate()

873
How can I add a MIN or MAX field (for text)

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Text")}:SortType := SortString
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("aha")
	var_Items:AddItem("baba")
	var_Items:AddItem("aaha")
	var_Items:AddItem("aka")
	h := var_Items:AddItem("min(all,dir,str(%0))")
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'MIN: '+value"
	h := var_Items:AddItem("max(all,dir,str(%0))")
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'MAX: '+value"
oDCOCX_Exontrol1:EndUpdate()

872
How can I change the the focus rectangle

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzQFAYbBlBaERiGQYIJhUAIIRZGMQxXAcMQvDSKQJhGDAADENAxAJCI4DBIgZQNDwZQIkCY4ZDKHIfRzNAASJIkTQPBKfYDGOLhSh6IJGRpPEIxdJMBr+fZ9QApeoYVj2J4eUCAFBxDRsZw8BiNAbkOi4Jp1f5nVJaFSxCKoSxbNqSBpGCzoJrKdI0R5JES2BAddTLBKzX7tHArLgSJ5dSrLMrwSKcRR1HSbIDyGaMUiCSqGVjWNZ5FREM46AAGbDgMILEgOZpoYDFVTZTKFCS7I6Eb40CCbCyPJQAabgWo4KAAZThNi7QAua4bTr7HqibLAexaJDOc4HVSgMLlIYEkIeg2iybAjDkfhMFuHY7mQT4xB0TBnFoUQ6i+cg2j2SIvHqVZIl8cB+BwTgPA4NRdjycg2FoHhuAMUZuHGUAwCECQUAaEYMHQHRHCGFRZEQAABO2AwRFCWQJAoGxECWTBHkGBxpg8RhYBMbJbD+TBzByfwwAwCIOCWCQiGiJgogqYh4hYIQ/k2cx9gEYQAAiRgqgsYx4mYLIOiOCMjjCTA4iScw8mMOQWEaEZkGkDgpguUIYm4SITmUCQaDuExjgkRhWhQJQ0A4ToVmWSQWFkAAljkdhiheZgZgoXIZCUWYaF2GgihmKhrg4JRJjYboVmaSIiHOHQnAkahph2ZYJmQAAxAwSQKESHwkFkKgoiAIxIHoPIimOOg2DiCgoiQJRQTYQxwn8MgMgoMoPiaYoaGCfw4A4CJNAkOpcGQBCAg==")
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x1000000
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellPaddingLeft] := 2
	var_Column:[Def,exCellHasCheckBox] := true
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:ShowFocusRect := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()

871
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column

local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Column/Cell-Same")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(0,"Zero",nil)
	var_Editor:AddItem(1,"One",nil)
	var_Editor:AddItem(2,"Two",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Column/Cell-Different")}:Editor
	var_Editor1:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	h := var_Items:AddItem(0)
	var_Editor2 := var_Items:[CellEditor,h,1]
		var_Editor2:EditType := DropDownListType
		var_Editor2:AddItem(3,"Three",nil)
		var_Editor2:AddItem(4,"Four",nil)
	var_Items:[CellValue,h,1] := 3
	var_Items:AddItem(nil)
	h := var_Items:AddItem(0)
	var_Editor3 := var_Items:[CellEditor,h,1]
		var_Editor3:EditType := CheckListType
		var_Editor3:AddItem(1,"Single",nil)
		var_Editor3:AddItem(2,"Double",nil)
	var_Items:[CellValue,h,1] := 3
oDCOCX_Exontrol1:EndUpdate()

870
How can I specify just a few fonts in a FontType editor

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Fonts")}:Editor
	var_Editor:EditType := FontType
	var_Editor:ClearItems()
	var_Editor:AddItem(0,"Calibri",nil)
	var_Editor:AddItem(1,"Arial",nil)
	var_Editor:AddItem(2,"Rockwell",nil)
	var_Editor:AddItem(3,"Tahoma",nil)
	var_Editor:SortItems(true,nil)
	var_Editor:DropDownRows := 4
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Tahoma")
oDCOCX_Exontrol1:EndUpdate()

869
How do you embed HTML options into the anchor click string

METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
	// AnchorClick event - Occurs when an anchor element is clicked.
	OutputDebugString(String2Psz( AsString(AnchorID) ))
	OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL

local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Car")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
	var_Items:AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
	var_Items:AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
	var_Items:AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
oDCOCX_Exontrol1:EndUpdate()

868
How do I add a checkbox column (method 2)

METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
	// CellStateChanged event - Fired after cell's state has been changed.
	OutputDebugString(String2Psz( "CheckBox Changed:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellState,Item,ColIndex]) ))
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellState,var_Items:AddItem("Check 1"),0] := 0
	var_Items:[CellState,var_Items:AddItem("Check 2"),0] := 1
	var_Items:[CellState,var_Items:AddItem("Check 3"),0] := 0
	var_Items:[CellState,var_Items:AddItem("Check 4"),0] := 1
oDCOCX_Exontrol1:EndUpdate()

867
How do I add a checkbox column (method 1)

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "CheckBox Changed:" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := CheckValueType
		var_Editor:[Option,exCheckValue2] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(0)
	var_Items:AddItem(1)
	var_Items:AddItem(0)
	var_Items:AddItem(1)
oDCOCX_Exontrol1:EndUpdate()

866
How do I change the progress bar's appearance

local var_Appearance as IAppearance
local var_Editor as IEditor

var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance:Add(2,"c:\exontrol\images\pushed.ebn")
var_Editor := oDCOCX_Exontrol1:ColumnsIColumn{:Add("Progress")}:Editor
	var_Editor:EditType := ProgressBarType
	var_Editor:[Option,exProgressBarBackColor] := 16777216
	var_Editor:[Option,exProgressBarMarkTicker] := 33554432
oDCOCX_Exontrol1:Items:AddItem(33)

865
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78egBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxLC8Mw3BDvYDkOAABAIgI=")
oDCOCX_Exontrol1:SelBackColor := 0x1fffffe
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ItemBackColor,var_Items:AddItem("red")] := RGB(255,0,0)
	var_Items:[ItemBackColor,var_Items:AddItem("blue")] := RGB(0,0,255)
	var_Items:[ItemBackColor,var_Items:AddItem("green")] := RGB(0,255,0)
oDCOCX_Exontrol1:EndUpdate()

864
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ItemBackColor,var_Items:AddItem("red")] := RGB(255,0,0)
	var_Items:[ItemBackColor,var_Items:AddItem("blue")] := RGB(0,0,255)
	var_Items:[ItemBackColor,var_Items:AddItem("green")] := RGB(0,255,0)
oDCOCX_Exontrol1:EndUpdate()

863
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:ShowFocusRect := true
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ItemBackColor,var_Items:AddItem("red")] := RGB(255,0,0)
	var_Items:[ItemBackColor,var_Items:AddItem("blue")] := RGB(0,0,255)
	var_Items:[ItemBackColor,var_Items:AddItem("green")] := RGB(0,255,0)
oDCOCX_Exontrol1:EndUpdate()

862
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that

METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
	// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
	OutputDebugString(String2Psz( "BeforeExpandItem" ))
	OutputDebugString(String2Psz( AsString(Item) ))
	oDCOCX_Exontrol1:Items:InsertItem(Item,nil,"new child")
RETURN NIL

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Items")}
		var_Column:DisplayFilterButton := true
		var_Column:FilterList := exRootItems
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 1")] := true
	var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 2")] := true
oDCOCX_Exontrol1:EndUpdate()

861
How can I change the shape of the line to be shown when user drag and drop data over the control, EBN

METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
	// OLEStartDrag event - Occurs when the OLEDrag method is called.
	// Data.SetData("data to be dragged")

RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExList\Sample\VB\DragDrop\insert_bottom.ebn")
oDCOCX_Exontrol1:[Background,exListOLEDropPosition] := 0x1000000
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")

860
How can I highlight the item from cursor when the user drag and drop data over the control

METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
	// OLEStartDrag event - Occurs when the OLEDrag method is called.
	// Data.SetData("data to be dragged")

RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:[Background,exListOLEDropPosition] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")

859
Is it possible to always show the editor for all cells at all times

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:[CellEditorVisible,Item,0] := exEditorVisible
	oDCOCX_Exontrol1:Items:[CellEditorVisible,Item,1] := exEditorVisible
RETURN NIL

METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
	// EditOpen event - Occurs when the edit operation starts.
	local var_Editor as IEditor
	local var_Items as IItems
	local c,v as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		v := var_Items:[CellValue,var_Items:FocusItem,0]
		c := var_Items:[CellCaption,var_Items:FocusItem,0]
	var_Editor := oDCOCX_Exontrol1:Columns:[Item,1]:Editor
		var_Editor:ClearItems()
		var_Editor:AddItem(v,AsString(c),nil)
RETURN NIL

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := DropDownListType
		var_Editor:AddItem(1,"First",nil)
		var_Editor:AddItem(2,"Second",nil)
		var_Editor:AddItem(3,"Third",nil)
oDCOCX_Exontrol1:DrawGridLines := exAllLines
IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Related")}:Editor:EditType := DropDownListType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem(1),1] := -1
	var_Items:[CellValue,var_Items:AddItem(2),1] := -1
	var_Items:[CellValue,var_Items:AddItem(3),1] := -1
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemDividerLineAlignment,h] := DividerTop
	var_Items:[CellEditorVisible,h,0] := exEditorHidden
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellValue,h,0] := "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
oDCOCX_Exontrol1:EndUpdate()

858
How do I set a computated cell individually

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Number")
oDCOCX_Exontrol1:Columns:Add("Format")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField | exHTML
	var_Items:[CellValue,h,1] := "2 * %0 + ` <font ;6><fgcolor=808080>(2 * Number)`"
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField | exHTML
	var_Items:[CellValue,h,1] := "3 * %0 + ` <font ;6><fgcolor=808080>(3 * Number)`"
	h := var_Items:AddItem("1.23")
	var_Items:[CellValueFormat,h,1] := exComputedField | exHTML
	var_Items:[CellValue,h,1] := "currency(%0) + ` <font ;6><fgcolor=808080>( Currency(Number) )`"
oDCOCX_Exontrol1:EndUpdate()

857
Is it possible to assign a different editor for some cells

local var_Editor,var_Editor1,var_Editor2 as IEditor
local var_Items as IItems
local h as USUAL

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Column - DropDownList")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"First item",nil)
	var_Editor:AddItem(2,"Second item",nil)
	var_Editor:AddItem(3,"Third item",nil)
IColumn{oDCOCX_Exontrol1:Columns:Add("Cell - DropDownList")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(1)
	var_Editor1 := var_Items:[CellEditor,h,1]
		var_Editor1:EditType := DropDownListType
		var_Editor1:AddItem(1,"<b>First</b> item",nil)
		var_Editor1:AddItem(2,"<b>Second</b> item",nil)
		var_Editor1:AddItem(3,"<b>Third</b> item",nil)
		var_Editor1:AddItem(4,"<b>Forth</b> item",nil)
	var_Items:[CellValue,h,1] := 2
	h := var_Items:AddItem(2)
	var_Editor2 := var_Items:[CellEditor,h,1]
		var_Editor2:EditType := DropDownListType
		var_Editor2:AddItem(1,"<b>Aka First</b> item",nil)
		var_Editor2:AddItem(2,"<b>Aka Second</b> item",nil)
		var_Editor2:AddItem(3,"<b>Aka Third</b> item",nil)
		var_Editor2:AddItem(4,"<b>Aka Forth</b> item",nil)
	var_Items:[CellValue,h,1] := 2

856
Is it possible to define the keys of the drop down values to be strings rather than numeric values

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "NewValue is" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL

local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-String")}:Editor
	var_Editor:EditType := DropDownListType
	var_Editor:AddItem(1,"NYC|New York City",nil)
	var_Editor:AddItem(2,"CJN|Cluj Napoca",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Numeric")}:Editor
	var_Editor1:EditType := DropDownListType
	var_Editor1:AddItem(1,"New York City",nil)
	var_Editor1:AddItem(2,"Cluj Napoca",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("NYC"),1] := 2

855
The Change event gets me the today date. How can I find what user typed

METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
	// Change event - Occurs when the user changes the cell's content.
	OutputDebugString(String2Psz( "NewValue:" ))
	OutputDebugString(String2Psz( AsString(NewValue) ))
	OutputDebugString(String2Psz( "EditingValue:" ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:EditingText ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor:EditType := DateType
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()

854
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}
	var_Column:Width := 64
	var_Column:AllowSizing := false
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("This is a bit ot long text")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()

853
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part

local var_Column,var_Column1 as IColumn
local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}
	var_Column:Width := 64
	var_Column:AllowSizing := false
	var_Editor := var_Column:Editor
		var_Editor:DropDownAlignment := 0x20 | 
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor:AddItem(3,"Third item. This is a bit ot long text",nil)
		var_Editor:Mask := ";;;rich"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("PickEdit")}
	var_Column1:Width := 64
	var_Column1:AllowSizing := false
	var_Editor1 := var_Column1:Editor
		var_Editor1:DropDownAlignment := 0x20 | 
		var_Editor1:EditType := PickEditType
		var_Editor1:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor1:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor1:AddItem(3,"Third item. This is a bit ot long text",nil)
		var_Editor1:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("First item. This is a bit ot long text"),1] := "Second item. This is a bit ot long text"
	h := var_Items:AddItem("First item. This is a bit ot long text")
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:DropDownAlignment := 0x20 | 
		var_Editor2:EditType := DropDownType
		var_Editor2:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor2:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor2:AddItem(3,"Third item. This is a bit ot long text",nil)
	var_Items:[CellValue,h,1] := "Second item. This is a bit ot long text"
	var_Editor3 := var_Items:[CellEditor,h,1]
		var_Editor3:DropDownAlignment := 0x20 | 
		var_Editor3:EditType := PickEditType
		var_Editor3:AddItem(1,"First item. This is a bit ot long text",nil)
		var_Editor3:AddItem(2,"Second item. This is a bit ot long text",nil)
		var_Editor3:AddItem(3,"Third item. This is a bit ot long text",nil)
oDCOCX_Exontrol1:EndUpdate()

852
Is there a property for the back color of the dropdown field

local var_Editor as IEditor

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
	var_Editor:EditType := DateType
	var_Editor:[Option,exDropDownBackColor] := 15790320
	var_Editor:[Option,exDropDownForeColor] := 65793
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()

851
Is it possible to change a back color of the field/cell when it takes a focus

METHOD OCX_Exontrol1EditClose() CLASS MainDialog
	// EditClose event - Occurs when the edit operation ends.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:ClearCellBackColor(var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex)
RETURN NIL

METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
	// EditOpen event - Occurs when the edit operation starts.
	local var_Items,var_Items1 as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellBackColor,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := RGB(255,0,0)
	var_Items1 := oDCOCX_Exontrol1:Items
		var_Items1:[CellValue,var_Items1:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := oDCOCX_Exontrol1:Items:[CellValue,oDCOCX_Exontrol1:Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex]
RETURN NIL

local var_Items as IItems

oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("v1"),1] := "v2"
	var_Items:[CellValue,var_Items:AddItem("v3"),1] := "v4"

850
How can I display the current date mask, but still allow empty values

local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
	var_Editor:EditType := DateType
	var_Editor:Mask := "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	var_Items:AddItem(SToD("20010101"))
	var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()

849
How can I align the days in a DateType editor

local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5 as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:Columns:Add("DropDown")
var_Items := oDCOCX_Exontrol1:Items
	var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor:EditType := DateType
		var_Editor:DropDownAlignment := RightAlignment
	var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor1:EditType := DateType
		var_Editor1:DropDownAlignment := CenterAlignment
	var_Editor2 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor2:EditType := DateType
		var_Editor2:DropDownAlignment := LeftAlignment
	var_Editor3 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor3:EditType := DateType
		var_Editor3:DropDownAlignment := 0x20 | 
	var_Editor4 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor4:EditType := DateType
		var_Editor4:DropDownAlignment := 0x20 | CenterAlignment
	var_Editor5 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor5:EditType := DateType
		var_Editor5:DropDownAlignment := 0x20 | RightAlignment

848
How can I align the drop down portion rather the inside captions

local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor:EditType := DateType
var_Items := oDCOCX_Exontrol1:Items
	var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor:EditType := DateType
		var_Editor:DropDownAlignment := 0x20 | 
	var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
		var_Editor1:EditType := DateType
		var_Editor1:DropDownAlignment := 0x10 | 
	var_Items:AddItem(SToD("20010101"))

847
Is it possible to show a message that the field is empty

local var_Column as IColumn
local var_Editor as IEditor

oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
oDCOCX_Exontrol1:Items:AddItem(192278)
oDCOCX_Exontrol1:Items:AddItem(1000)

846
How can I mask a date

local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Date")
oDCOCX_Exontrol1:Columns:Add("Mask")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DateType
		var_Editor:Mask := "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DateType
		var_Editor1:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DateType
		var_Editor2:Mask := "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DateType
		var_Editor3:Mask := "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DateType
		var_Editor4:Mask := "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= "
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := DateType
		var_Editor5:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:EditType := DateType
		var_Editor6:Mask := "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := DateType
		var_Editor7:Mask := "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
	h := var_Items:AddItem(SToD("20010101"))
	var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := DateType
		var_Editor8:Mask := "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype"
	var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
oDCOCX_Exontrol1:EndUpdate()

845
How can I display and edit an integer number to show grouping digits too ( no decimals)

local var_Column as IColumn
local var_Editor as IEditor

var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Column:FormatColumn := "value format `0`"
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float,digits=0"
oDCOCX_Exontrol1:Items:AddItem(192278)

844
How can I display and edit a float number to show grouping digits too

local var_Column as IColumn
local var_Editor as IEditor

var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
	var_Column:FormatColumn := "value format ``"
	var_Editor := var_Column:Editor
		var_Editor:EditType := MaskType
		var_Editor:Mask := ";;;float"
oDCOCX_Exontrol1:Items:AddItem(192278)

843
How can I mask a phone number

local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("Phone")}:Editor:EditType := MaskType
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem(nil)
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := MaskType
		var_Editor:Mask := "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	h := var_Items:AddItem("0123")
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := MaskType
		var_Editor1:Mask := "!(999) 000 0000;2;;select=4"
	h := var_Items:AddItem("0123")
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := MaskType
		var_Editor2:Mask := "`Phone: `!(999) 000-0000"
	h := var_Items:AddItem("(074) 876-1222")
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := MaskType
		var_Editor3:Mask := "!(999) 000-0000;0"

842
Is it possible to display the ColorType fields using RGB format

local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6 as IEditor
local var_Items as IItems
local h as USUAL

IColumn{oDCOCX_Exontrol1:Columns:Add("Color")}:Editor:EditType := ColorType
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(255)
	h := var_Items:AddItem(255)
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := ColorType
		var_Editor:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	h := var_Items:AddItem(255)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := ColorType
		var_Editor1:Mask := "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := ColorType
		var_Editor2:Mask := "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := ColorType
		var_Editor3:Mask := "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := ColorType
		var_Editor4:Mask := "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := ColorType
		var_Editor5:Mask := "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
	h := var_Items:AddItem(255)
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:EditType := ColorType
		var_Editor6:Mask := "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"

841
How can I add the ExComboBox as an user editor

METHOD OCX_Exontrol1UserEditorClose(Object,Item,ColIndex) CLASS MainDialog
	// UserEditorClose event - Fired the user editor is about to be opened.
	// Items.CellValue(Item,ColIndex) = Object.Value

RETURN NIL

METHOD OCX_Exontrol1UserEditorOleEvent(Object,Ev,CloseEditor,Item,ColIndex) CLASS MainDialog
	// UserEditorOleEvent event - Occurs when an user editor fires an event.
	OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL

METHOD OCX_Exontrol1UserEditorOpen(Object,Item,ColIndex) CLASS MainDialog
	// UserEditorOpen event - Occurs when an user editor is about to be opened.
	// Object.Value = Me.Items.CellValue(Item,ColIndex)

RETURN NIL

local var_Editor as IEditor
local var_Items as IItems
local var_Object as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Exontrol.ComboBox")}:Editor
	var_Editor:EditType := UserEditorType
	var_Editor:UserEditor("Exontrol.ComboBox","")
	var_Object := var_Editor:UserEditorObject
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:DefaultItemHeight := 21
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellEditorVisible,var_Items:AddItem(10248),0] := exEditorVisible
	var_Items:[CellEditorVisible,var_Items:AddItem(10249),0] := exEditorVisible
	var_Items:[CellEditorVisible,var_Items:AddItem(10250),0] := exEditorVisible
oDCOCX_Exontrol1:EndUpdate()

840
How can I add a header row

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exTop] := 1
	h := var_Items:[LockedItem,exTop,0]
	var_Items:[ItemBackColor,h] := RGB(128,128,128)
	var_Items:[ItemForeColor,h] := RGB(255,255,255)
	var_Items:[CellValue,h,0] := "footer c1"
	var_Items:[CellValue,h,1] := "footer c2"
	var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"

839
How can I add a footer row

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exBottom] := 1
	h := var_Items:[LockedItem,exBottom,0]
	var_Items:[ItemBackColor,h] := RGB(128,128,128)
	var_Items:[ItemForeColor,h] := RGB(255,255,255)
	var_Items:[CellValue,h,0] := "footer c1"
	var_Items:[CellValue,h,1] := "footer c2"
	var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"

838
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar

local var_Columns as IColumns

oDCOCX_Exontrol1:SortBarVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add(AsString(0))
	var_Columns:Add(AsString(1))
	var_Columns:Add(AsString(2))
	var_Columns:Add(AsString(3))
	var_Columns:Add(AsString(4))
oDCOCX_Exontrol1:Layout := "multiplesort=" + CHR(34) + "C3:1 C4:2" + CHR(34) + ";singlesort=" + CHR(34) + "C2:1" + CHR(34) + ""

837
How can I fix a column, while other sizable and fill the control's client

local var_Column as IColumn

oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Columns:Add("Sizable")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("F")}
	var_Column:AllowSizing := false
	var_Column:Width := 16

836
Is it possible to use empty values on a PickEditType editor (method 2)

local var_Editor as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
	var_Editor:EditType := PickEditType
	var_Editor:AddItem(0,"",nil)
	var_Editor:AddItem(1,"The first item",nil)
	var_Editor:AddItem(2,"The second item",nil)
	var_Editor:AddItem(3,"The third item",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("The first item")
	var_Items:AddItem("")
	var_Items:AddItem("The third item")

835
Is it possible to use empty values on a PickEditType editor (method 1)

local var_Editor as IEditor
local var_Items as IItems

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
	var_Editor:EditType := PickEditType
	var_Editor:[Option,exPickAllowEmpty] := true
	var_Editor:AddItem(1,"The first item",nil)
	var_Editor:AddItem(2,"The second item",nil)
	var_Editor:AddItem(3,"The third item",nil)
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("The first item")
	var_Items:AddItem("")
	var_Items:AddItem("The third item")

834
How can I specify an unselectable cell

local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("unselectable item")
	var_Items:[CellValue,h,1] := "unselectable item"
	var_Items:[CellValue,h,2] := "unselectable item"
	var_Items:[SelectableItem,h] := false
	h := var_Items:AddItem("selectable cell")
	var_Items:[CellValue,h,1] := "unselectable cell"
	var_Items:[CellEnabled,h,1] := false
	var_Items:[CellForeColor,h,1] := RGB(0,0,0)
	var_Items:[CellValue,h,2] := "disabled cell"
	var_Items:[CellEnabled,h,2] := false
	h := var_Items:AddItem("disabled item")
	var_Items:[CellValue,h,1] := "disabled item"
	var_Items:[CellValue,h,2] := "disabled item"
	var_Items:[EnableItem,h] := false
	var_Items:[SelectableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()

833
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters

local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exDisableSigns | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)

832
How can I edit a float number with no using of e/E/d/D and + character

local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exDisablePlus | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)

831
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters

local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)

830
How can I edit an integer with no using of +/- signs

local var_Editor as IEditor

var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
	var_Editor:EditType := EditType
	var_Editor:Numeric := 0xfc | exDisableSigns | exFloatInteger | exFloat
oDCOCX_Exontrol1:Items:AddItem(1)

829
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Value")
	var_Column := IColumn{var_Columns:Add("CellSingleLine = False")}
		var_Column:ComputedField := "%0"
		var_Column:[Def,exCellSingleLine] := false
	var_Column1 := IColumn{var_Columns:Add("FormatColumn/replace CRLF")}
		var_Column1:ComputedField := "%0"
		var_Column1:FormatColumn := "value replace `\r\n` with ``"
	var_Column2 := IColumn{var_Columns:Add("FormatColumn/replace TAB,CRLF")}
		var_Column2:ComputedField := "%0"
		var_Column2:FormatColumn := "(value replace `\t` with ``) replace `\r\n` with ``"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("a\ta\r\nb\tb")

828
Is there any way to "unselect" radio group

METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
	// DblClick event - Occurs when the user dblclk the left mouse button over an object.
	local var_Items as IItems
	local h as USUAL
	var_Items := oDCOCX_Exontrol1:Items
		h := var_Items:[CellChecked,1234]
		var_Items:[CellHasCheckBox,0,h] := true
		var_Items:[CellState,0,h] := 0
		var_Items:[CellHasCheckBox,0,h] := false
RETURN NIL

METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
	// SelectionChanged event - Fired after a new item has been selected.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:[CellState,var_Items:FocusItem,0] := 1
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelBackColor := RGB(255,255,128)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Radio 1")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234
	h := var_Items:AddItem("Radio 2")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234
	var_Items:[CellState,h,0] := 1
	h := var_Items:AddItem("Radio 3")
	var_Items:[CellHasRadioButton,h,0] := true
	var_Items:[CellRadioGroup,h,0] := 1234

827
The Column.Alignment property does not seem to work for cells with images in them. What can be done

local var_Column as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DefaultItemHeight := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column:AllowSizing := false
	var_Column:Width := 32
	var_Column:HTMLCaption := "<img>1</img>"
	var_Column:HeaderAlignment := CenterAlignment
	var_Column:Alignment := CenterAlignment
	var_Column:[Def,exCellValueFormat] := 1
oDCOCX_Exontrol1:Columns:Add("Rest")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("<img>1</img>")
	var_Items:AddItem("<img>2</img>")
	var_Items:AddItem("<img>3</img>")
oDCOCX_Exontrol1:EndUpdate()

826
Can I change the format of date to be shown in the control

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Default")
	var_Column := IColumn{var_Columns:Add("Format.1")}
		var_Column:ComputedField := "%0"
		var_Column:FormatColumn := "dateF(value) replace `/` with `-`"
	var_Column1 := IColumn{var_Columns:Add("Format.2")}
		var_Column1:ComputedField := "%0"
		var_Column1:[Def,exCellValueFormat] := 1
		var_Column1:FormatColumn := "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
	var_Column2 := IColumn{var_Columns:Add("Format.3")}
		var_Column2:ComputedField := "%0"
		var_Column2:[Def,exCellValueFormat] := 1
		var_Column2:FormatColumn := "( dateF(value) replace `/` with `-` ) + ` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) )"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(SToD("20010101 10:00:00"))
	var_Items:AddItem(SToD("20010102 10:00:00"))

825
How do I arrange my columns on multiple levels

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("C0")}
		var_Column:ExpandColumns := "1,2"
		var_Column:DisplayExpandButton := false
	var_Columns:Add("C1")
	var_Columns:Add("C2")
	var_Columns:Add("C3")
	var_Column1 := IColumn{var_Columns:Add("C4")}
		var_Column1:ExpandColumns := "5,6"
		var_Column1:DisplayExpandButton := false
	var_Columns:Add("C5")
	var_Column2 := IColumn{var_Columns:Add("C6")}
		var_Column2:ExpandColumns := "6,7"
		var_Column2:DisplayExpandButton := false
	var_Columns:Add("C7")
oDCOCX_Exontrol1:EndUpdate()

824
Does your control support expandable header or columns, so I can arrange it on multiple levels

local var_Column,var_Column1 as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(240,240,240)
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Photo")}
		var_Column:AllowSizing := false
		var_Column:Width := 32
	var_Columns:Add("Personal Info")
	var_Columns:Add("Title")
	var_Columns:Add("Name")
	var_Columns:Add("First")
	var_Columns:Add("Last")
	var_Columns:Add("Address")
	var_Columns:[Item,"Personal Info"]:ExpandColumns := "2,3"
	var_Column1 := var_Columns:[Item,"Name"]
		var_Column1:ExpandColumns := "4,5"
		var_Column1:Expanded := false
oDCOCX_Exontrol1:EndUpdate()

823
How can I use the MinWidthAutoResize/MaxWidthAutoResize

local var_Column as IColumn
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Column := oDCOCX_Exontrol1:Columns:[Item,0]
	var_Column:MaxWidthAutoResize := 32
	var_Column:WidthAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

822
Does your control support subscript or superscript, in HTML captions

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderHeight := 28
oDCOCX_Exontrol1:DefaultItemHeight := 24
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Column 1")}
		var_Column:HTMLCaption := "Column <b><off 2><font ;6>1"
		var_Column:[Def,exCellValueFormat] := 1
	var_Column1 := IColumn{var_Columns:Add("Column 2")}
		var_Column1:HTMLCaption := "Column <b><off 2><font ;6>2"
		var_Column1:[Def,exCellValueFormat] := 1
	var_Column2 := IColumn{var_Columns:Add("Column 3")}
		var_Column2:HTMLCaption := "Column <b><off 2><font ;6>3"
		var_Column2:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item <font ;6><off 4>1")
	var_Items:[CellValue,h,1] := "Item <font ;6><off -6>2"
	var_Items:[CellValue,h,2] := "Item <b><font ;6><off -6>2<off 4>3<off 4>1"

821
How can I specify the splited cell's background color

local var_Column as IColumn
local var_Items as IItems
local h,var_SplitCell as USUAL

oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
IColumn{oDCOCX_Exontrol1:Columns:Add("1")}:[Def,exCellBackColor] := 255
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("2")}
	var_Column:Width := 32
	var_Column:AllowSizing := false
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("The Item's background color inherits the Column.Def(exCellBackColor)")
	var_Items:[ItemDivider,h] := 0
	h := var_Items:AddItem("The Item's background color inherits the CellBackColor()")
	var_Items:[ItemDivider,h] := 0
	var_Items:[CellBackColor,h,nil] := RGB(0,255,0)
	h := var_Items:AddItem("The Item's background color inherits the CellBackColor(), while the split inherits from the Column.Def(exCellBackColor) ")
	var_Items:[ItemDivider,h] := 0
	var_Items:[CellBackColor,h,nil] := RGB(0,255,0)
	var_SplitCell := var_Items:[SplitCell,h,0]
	h := var_Items:AddItem("The Item's background color inherits the CellBackColor()")
	var_Items:[ItemDivider,h] := 0
	var_Items:[CellBackColor,h,nil] := RGB(0,255,0)
	var_Items:[CellBackColor,0,var_Items:[SplitCell,h,0]] := RGB(0,0,255)

820
How can I specify a fixed width for a column

local var_Column,var_Column1 as IColumn

oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}
	var_Column:Width := 17
	var_Column:AllowSizing := false
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}
	var_Column1:Width := 17
	var_Column1:AllowSizing := false
oDCOCX_Exontrol1:Columns:Add("Other")
oDCOCX_Exontrol1:ColumnAutoResize := true

819
How can I split a cell in three parts

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("entire")
	h := var_Items:AddItem("split 1")
	h := var_Items:[SplitCell,h,0]
	var_Items:[CellValue,0,h] := "split 2"
	h := var_Items:[SplitCell,0,h]
	var_Items:[CellValue,0,h] := "split 3"
	h := var_Items:AddItem("entire")
oDCOCX_Exontrol1:EndUpdate()

818
How can I find if there is any filter applied to the control

METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
	// FilterChange event - Occurs when filter was changed.
	OutputDebugString(String2Psz( "If negative, the filter is present, else not" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:VisibleItemCount) ))
RETURN NIL

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

817
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

816
Is there any method to get only the matched items and not the items with his parent

local var_Column as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
	var_Column:DisplayFilterButton := true
	var_Column:FilterType := exFilter
	var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("R1")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
	var_Items:[ExpandItem,h] := true
	h := var_Items:AddItem("R2")
	var_Items:InsertItem(h,nil,"C1")
	var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

815
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "Select=" + CHR(34) + "0" + CHR(34) + ";SingleSort=" + CHR(34) + "C0:2" + CHR(34) + ";Columns=1"
oDCOCX_Exontrol1:EndUpdate()

814
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Item 1")
	var_Items:AddItem("Item 2")
	var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
oDCOCX_Exontrol1:EndUpdate()

813
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance

local var_Columns as IColumns

oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	var_Columns:Add("Column 2")
oDCOCX_Exontrol1:BackColorHeader := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x12d86ff

812
Is it possible to change the visual appearance of the columns selector/floating bar(3)

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

811
Is it possible to change the visual appearance of the columns selector/floating bar(2)

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

810
Is it possible to change the visual appearance of the columns selector/floating bar(1)


oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

809
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

808
Is it possible to list a column to columns selector/floating bar, but still user can use it

local var_Column as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
	var_Column := IColumn{var_Columns:Add("Column 3")}
		var_Column:Visible := false
		var_Column:Enabled := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

807
How can I prevent a specific column not to be listed in the columns selector/floating bar

local var_Column as IColumn
local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
	var_Column := IColumn{var_Columns:Add("Column 3")}
		var_Column:Visible := false
		var_Column:AllowDragging := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

806
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Hidden Columns"
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

805
How can I show the columns selector, so the user can drag and drop columns to the view

local var_Columns as IColumns

oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns

804
The column's header is changed while the cursor hovers it. Is it possible to prevent that

local var_Columns as IColumns

var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Column 1")
	var_Columns:Add("Column 2")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1

803
I noticed that when grouping on a field, its details are always expanded. Is it possible to show collapsed by default (method 2)

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:[Item,1]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:EnsureVisibleColumn(0)
oDCOCX_Exontrol1:Items:[ExpandItem,0] := false
oDCOCX_Exontrol1:EndUpdate()

802
I noticed that when grouping on a field, its details are always expanded. Is it possible to show collapsed by default (method 1)

METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
	// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:[ExpandItem,Item] := false
RETURN NIL

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:[Item,1]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

801
Is there a possibility to expand / collapse all groups (or group by group) at runtime with a method (equivalent to pressing the + or - button in the group header)

local var_Items as IItems
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:[Item,1]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:EnsureVisibleColumn(0)
oDCOCX_Exontrol1:BeginUpdate()
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[ExpandItem,var_Items:[RootItem,0]] := false
	var_Items:[ExpandItem,var_Items:[RootItem,1]] := false
	var_Items:[ExpandItem,var_Items:[RootItem,2]] := false
oDCOCX_Exontrol1:EndUpdate()